home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / intuition / Window.st < prev    next >
Encoding:
Text File  |  2002-03-13  |  4.4 KB  |  179 lines
  1. "--------------------------------------------------"
  2. " Window Class implements control of Amiga Windows."
  3. "--------------------------------------------------"
  4.  
  5. Class Window :Glyph ! private savedTitle parent !
  6. [
  7.    setPointer: spriteObject size: sizePt offset: offPt ! w h x y !
  8.       w <- sizePt x.
  9.       h <- sizePt y.
  10.  
  11.       x <- offPt  x.
  12.       y <- offPt  y.
  13.  
  14.       <primitive 181 8 spriteObject h w x y private> "h w???"
  15. |
  16.    addGadget: gadgetObject
  17.       <primitive 181 9 gadgetObject private>
  18. |
  19.    setFirstGadget: newGadgetObject
  20.       <primitive 181 3 12 newGadgetObject>
  21. |
  22.    refreshGadgets
  23.       <primitive 181 4 'RefreshGadgets' private>
  24. |
  25.    refreshWindowFrame
  26.       <primitive 181 4 'RefreshWindowFrame' private>
  27. |
  28.    removeGadget: gadgetObject
  29.       <primitive 181 10 gadgetObject private>
  30. |
  31.    reportMouse: boolvalue
  32.       (boolvalue == true)
  33.          ifTrue: [<primitive 181 11 1 private>]
  34.         ifFalse: [<primitive 181 11 0 private>]
  35. |
  36.    getMouseCoords
  37.       ^ <primitive 181 2 8 private> @ <primitive 181 2 9 private>
  38. |
  39.    printIText: iTextObject at: aPoint
  40.       <primitive 181 14 iTextObject (aPoint x) (aPoint y) private>
  41. |
  42.    handleIntuition
  43.       ^ <primitive 181 16 private>
  44. |
  45.    windowToBack
  46.       <primitive 181 4 'WindowToBack' private>
  47. |
  48.    windowToFront
  49.       <primitive 181 4 'WindowToFront' private>
  50. |
  51.    showRequester: requesterObject
  52.       <primitive 181 5 'ShowRequester' requesterObject private>
  53. |
  54.    addMenuStrip: menuObject
  55.       <primitive 181 5 'AddMenuStrip' menuObject private>
  56. |
  57.    removeMenuStrip
  58.       <primitive 181 4 'RemoveMenuStrip' private>
  59. |
  60.    moveWindow: deltaPt
  61.       <primitive 181 6 'MoveWindow' (deltaPt x) (deltaPt y) private>
  62. |
  63.    infoReq: msg title: t
  64.       <primitive 181 13 msg t 'OKAY'>
  65. |
  66.    yesNoReq: msg title: t
  67.       ^ <primitive 181 13 msg t 'YES|NO'>
  68. |
  69.    getUserChoice: msg title: t choices: bstr
  70.       ^ <primitive 181 13 msg t bstr>
  71. |
  72.    changeWindowSize: deltaPt
  73.       <primitive 181 6 'SetWindowSize' (deltaPt x) (deltaPt y) private>
  74. |
  75.    getOrigin
  76.       ^ <primitive 181 2 0 private> @ <primitive 181 2 1 private>
  77. |
  78.    getWindowSize
  79.       ^ <primitive 181 2 2 private> @ <primitive 181 2 3 private>
  80. |
  81.    getWindowPens
  82.       ^ <primitive 181 2 4 private> @ <primitive 181 2 5 private>
  83. |
  84.    getFlags
  85.       ^ <primitive 181 2 6 private>
  86. |
  87.    getIDCMPFlags
  88.       ^ <primitive 181 2 7 private>
  89. |
  90.    beginRefresh
  91.       <primitive 181 4 'BeginRefresh' private>
  92. |
  93.    endRefresh
  94.       <primitive 181 4 'EndRefresh' private>
  95. |     
  96.    remakeDisplay
  97.       <primitive 181 4 'RemakeDisplay' private>
  98. |     
  99.    rethinkDisplay
  100.       <primitive 181 4 'RethinkDisplay' private>
  101. |
  102.    setWindowOrigin: newPoint
  103.       <primitive 181 3 0 (newPoint x)>.
  104.       <primitive 181 3 1 (newPoint y)>
  105. |
  106.    setWindowSize: sizePoint
  107.       <primitive 181 3 2 (sizePoint x)>.
  108.       <primitive 181 3 3 (sizePoint y)>
  109. |
  110.    setWindowPens: newPensPoint
  111.       <primitive 181 3 4 (newPensPoint x)>. "FrontPen"
  112.       <primitive 181 3 5 (newPensPoint y)>  "BackPen"
  113. |
  114.    setFlags: newFlags
  115.       <primitive 181 3 6 newFlags>
  116. |
  117.    setIDCMPFlags: newIDCMP
  118.       <primitive 181 3 7 newIDCMP>
  119. |
  120.    setMinSize: newMinPoint ! minw minh !
  121.       minw <- newMinPoint x.
  122.       minh <- newMinPoint y.
  123.  
  124.       <primitive 181 3 8 minw>.
  125.       <primitive 181 3 9 minh>
  126. |
  127.    setMaxSize: newMaxPoint ! maxw maxh !
  128.       maxw <- newMaxPoint x.
  129.       maxh <- newMaxPoint y.
  130.  
  131.       <primitive 181 3 10 maxw>.
  132.       <primitive 181 3 11 maxh>
  133. |
  134.    getReqCount
  135.       ^ <primitive 181 2 11 private>
  136. |
  137.    getPointerSize
  138.       ^ <primitive 181 2 12 private> @ <primitive 181 2 13 private>
  139. |
  140.    setCheckMark: newCheckMarkImageObject
  141.       <primitive 181 3 13 newCheckMarkImageObject>
  142. |
  143.    getWindowOffset
  144.       ^ <primitive 181 2 14 private> @ <primitive 181 2 15 private>
  145. |
  146.    setBitMap: newBitMapObject
  147.       <primitive 181 3 14 newBitMapObject>
  148. |
  149.    getTitle
  150.       ^ <primitive 181 2 10 private>
  151. |      
  152.    changeTitle: newTitle
  153.       <primitive 181 12 newTitle private>. "Window has to be still open!"
  154.       savedTitle <- newTitle
  155. |
  156.    setWindowTitle: newWindowTitle
  157.       savedTitle <- newWindowTitle
  158. |
  159.    getScreenTitle
  160.       ^ savedTitle <- <primitive 181 2 16 private>
  161. |
  162.    getWindowObject
  163.       ^ private
  164. |
  165.    new: newWindowTitle
  166.       self setWindowTitle: newWindowTitle.
  167.       ^ self
  168. |
  169.    openOnScreen: screenObject
  170.       private <- <primitive 181 1 screenObject savedTitle>.
  171.       parent  <- screenObject
  172. |
  173.    reOpen
  174.       private <- <primitive 181 1 parent savedTitle>
  175. |
  176.    close
  177.       <primitive 181 0 private>.
  178. ]
  179.